home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / aros / dos / output.c < prev    next >
C/C++ Source or Header  |  1996-09-12  |  1KB  |  65 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: output.c,v 1.3 1996/08/13 13:52:49 digulla Exp $
  4.     $Log: output.c,v $
  5.     Revision 1.3  1996/08/13 13:52:49  digulla
  6.     Replaced <dos/dosextens.h> by "dos_intern.h" or added "dos_intern.h"
  7.     Replaced __AROS_LA by __AROS_LHA
  8.  
  9.     Revision 1.2  1996/08/01 17:40:55  digulla
  10.     Added standard header for all files
  11.  
  12.     Desc:
  13.     Lang: english
  14. */
  15. #include <clib/exec_protos.h>
  16. #include "dos_intern.h"
  17.  
  18. /*****************************************************************************
  19.  
  20.     NAME */
  21.     #include <clib/dos_protos.h>
  22.  
  23.     __AROS_LH0(BPTR, Output,
  24.  
  25. /*  SYNOPSIS */
  26.  
  27. /*  LOCATION */
  28.     struct DosLibrary *, DOSBase, 10, Dos)
  29.  
  30. /*  FUNCTION
  31.     Returns the current output stream or 0 if there is no current
  32.     output stream.
  33.  
  34.     INPUTS
  35.  
  36.     RESULT
  37.     Output stream handle.
  38.  
  39.     NOTES
  40.  
  41.     EXAMPLE
  42.  
  43.     BUGS
  44.  
  45.     SEE ALSO
  46.  
  47.     INTERNALS
  48.  
  49.     HISTORY
  50.     29-10-95    digulla automatically created from
  51.                 dos_lib.fd and clib/dos_protos.h
  52.  
  53. *****************************************************************************/
  54. {
  55.     __AROS_FUNC_INIT
  56.     __AROS_BASE_EXT_DECL(struct DosLibrary *,DOSBase)
  57.  
  58.     /* Get pointer to process structure */
  59.     struct Process *me=(struct Process *)FindTask(NULL);
  60.  
  61.     /* Nothing spectacular */
  62.     return me->pr_COS;
  63.     __AROS_FUNC_EXIT
  64. } /* Output */
  65.